ct_p_map <- 
function(data, savePDF = FALSE,...){
  if (savePDF ! = FALSE) {
    pdf(savePDF, width = 7.8, height = 11.2, paper = "a4", pointsize = 8)
  }
 
  map("world", "country", col="grey80", fill=TRUE)
  title("Location Stadiums")
  for (i in 1:18) {
    text(mapproject(data[i,4], data[i,3]), labels=as.character(data[i,2]), 
         cex=0.5)
  }
  return(map)
  
  if (savePDF != FALSE) {
    dev.off()
  }
}




